From: Jason Rumney <jasonr@gnu.org>
Date: Sun, 9 May 2004 15:02:14 +0000 (+0000)
Subject: (Vw32_ansi_code_page): New Lisp variable.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~22608
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=56acbe937e7cc193d10f2775d92a5e092ad0ae3c;p=emacs.git

(Vw32_ansi_code_page): New Lisp variable.
(globals_of_w32fns): Set it.
---

diff --git a/src/w32fns.c b/src/w32fns.c
index f9a81a19992..b57e31b6ed2 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -234,6 +234,9 @@ Lisp_Object Qw32_charset_mac;
 Lisp_Object Qw32_charset_unicode;
 #endif
 
+/* The ANSI codepage.  */
+Lisp_Object Vw32_ansi_code_page;
+
 /* Prefix for system colors.  */
 #define SYSTEM_COLOR_PREFIX "System"
 #define SYSTEM_COLOR_PREFIX_LEN (sizeof (SYSTEM_COLOR_PREFIX) - 1)
@@ -8793,6 +8796,11 @@ void globals_of_w32fns ()
   /* ditto for GetClipboardSequenceNumber.  */
   clipboard_sequence_fn = (ClipboardSequence_Proc)
     GetProcAddress (user32_lib, "GetClipboardSequenceNumber");
+
+  DEFVAR_INT ("w32-ansi-code-page",
+	      &Vw32_ansi_code_page,
+	      doc: /* The ANSI code page used by the system.  */);
+  XSETINT (Vw32_ansi_code_page, GetACP ());
 }
 
 #undef abort